% V20210224 - 8.9 GW_ADD_TABLE

INCLUDE "GW.bas"

% Create page.
p = GW_NEW_PAGE()

% Prepare title bar string.
title$ = GW_ADD_BAR_TITLE$("Table Example")

% Add title bar.
GW_ADD_TITLEBAR(p, title$)

% Prepare an array for the table.
ARRAY.LOAD a$[],"a","b","c","d"

GW_ADD_TEXT(p,"First table, 1 column")
GW_ADD_TABLE(p, 1, a$[])

GW_ADD_TEXT(p,"Second table, 2 columns")
GW_ADD_TABLE(p, 2, a$[])

GW_ADD_TEXT(p,"Third table, 3 columns")
GW_ADD_TABLE(p, 3, a$[])

GW_ADD_TEXT(p,"Fourth table, 4 columns")
GW_ADD_TABLE(p, 4, a$[])

% Show the page.
GW_RENDER(p)

DO
 % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 % Place here any necessary code to process user actions.

 % Example feedback.
 POPUP r$

UNTIL r$ = "BACK" % End when BACK key is pressed.

END "End of Table example."